home *** CD-ROM | disk | FTP | other *** search
/ stazsoftware.com / www.stazsoftware.com.tar / www.stazsoftware.com / futurebasic / sample-code / SwitchingToFB.sit / storage_bin / Utility FNs.incl < prev    next >
Text File  |  2002-07-31  |  1KB  |  87 lines
  1.  
  2. /*
  3.      a generic function that displays an error message
  4. */
  5. LOCAL FN showError(msg AS STR255)
  6. '~';
  7. DIM x
  8.  
  9. CALL PARAMTEXT(msg,"","","")
  10. x = FN NOTEALERT(_errorAlert,0)
  11. END FN
  12.  
  13.  
  14.  
  15. /*
  16.      this function locates the next available (empty)
  17.      slot to be used as a window and file reference number.
  18. */
  19. LOCAL FN getNextRef
  20. '~';
  21. DIM x,nextSlot
  22.  
  23. nextSlot = 0
  24.  
  25. FOR x = 1 TO _maxDBWinds
  26. LONG IF gCurrentRecord(x) = 0
  27. nextSlot    = x
  28. gCurrentRecord(x) = _zTrue
  29. EXIT FN
  30. END IF
  31. NEXT
  32.  
  33. FN showError("You can't open any more windows.")
  34. END FN = nextSlot
  35.  
  36.  
  37. /*
  38.      get info from pref fields & buttons
  39. */
  40. LOCAL FN capturePrefs
  41. '~';
  42. gPref.titleInfoFlags = 0//clear flags
  43.  
  44. LONG IF BUTTON(_prefIncludeDateBtn) = _kControlCheckBoxCheckedValue
  45. gPref.titleInfoFlags += _includeDateMask
  46. END IF
  47.  
  48. LONG IF BUTTON(_prefIncludePageNumberBtn) = _kControlCheckBoxCheckedValue
  49. gPref.titleInfoFlags += _includePageNumber
  50. END IF
  51.  
  52. gPref.reportTitle = EDIT$(_preftitleFld)
  53.  
  54. END FN
  55.  
  56. /*
  57.      display the splash alert window and
  58.      react to the button clicks
  59. */
  60. LOCAL FN showSplash
  61. '~';
  62. DIM clickedButton
  63.  
  64. DO
  65. clickedButton = FN ALERT(_splashAlert,0)
  66. SELECT clickedButton
  67. CASE 1//open
  68. FN openStorageBin
  69. CASE 2//new
  70. FN createNewStorageBin
  71. CASE 3//the picture
  72. BEEP
  73. END SELECT
  74. UNTIL clickedButton = 1 or clickedButton = 2
  75.  
  76. END FN
  77.  
  78. /*
  79.      head 'e up. move 'em out
  80. */
  81. LOCAL FN initProgram
  82. '~';
  83. FN createMenus
  84. FN showSplash
  85. END FN
  86.  
  87.